<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>12</cardCount>
<cardID>2822</cardID>
<listID>8183</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openstackif the version of HyperCard < 2 thenanswer "Sorry, HyperCard 2.0 or later is required"go homeend iflock screenset userlevel to 1Create menu "Print"put "Assignment Sheet,Point Basis Grade Record,Weight Basis Grade Record"¬into menu "Print"disable menuitem 12 of menu 4delete menu "Edit"unlock screenend openstackon closestackif freesize of this stack ≥ size of this stack / 4 thendoMenu "Compact Stack"end ifreset menubarend closestackon domenu xif x is "Assignment Sheet" thenhide background button "left arr" of cd "assignment"hide background button "rt arr" of cd "assignment"go cd "Assignment"print 2 cardsshow background button "left arr" of cd "assignment"show background button "rt arr" of cd "assignment"exit domenuend ifif x is "Point Basis Grade Record" thenhide cd button "rt arr" of cd "gradecheck1"hide cd button "left arr" of cd "gradecheck1"put "" into fld "class" of cd "points"go cd "points"print 2 cardsshow cd button "rt arr" of cd "gradecheck1"show cd button "left arr" of cd "gradecheck1"put "Point Basis Grade Record" into fld "class" of cd "points"exit domenuend ifif x is "Weight Basis Grade Record" thenhide cd button "rt arr" of cd "gradecheck2"hide cd button "left arr" of cd "gradecheck2"put "" into fld "class" of cd "studentdata"go cd "studentdata"print 2 cardsshow cd button "rt arr" of cd "gradecheck2"show cd button "left arr" of cd "gradecheck2"put "Weight Basis Grade Record" into fld "class" of cd "studentdata"exit domenuend ifpass domenuend domenu</script>
